home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 November
/
64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64
/
pascal 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
278b
|
14 lines
10 print"[147]":rem pascal-koeffizienten
20 print"pascal-koeffizienten"
30 print"********************"
40 dimk(200):k(100)=1
50 input" exponent des binoms";n
60 fora=1ton
70 forr=100-ato100+astep2
80 k(r)=k(r-1)+k(r+1)
90 nextr:nexta
100 print"die koeffizienten sind:"
110 fori=100-nto100+nstep2
120 printk(i);
130 nexti